From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 15 Sep 2009 03:45:51 +0000 (+0000)
Subject: (Fload): Also run do-after-load-evaluation while dumping.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10473
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1a791ff69461be7ce23c6670f7ff01775e4ee636;p=emacs.git

(Fload): Also run do-after-load-evaluation while dumping.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 5af0367337a..37752287411 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2009-09-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* lread.c (Fload): Also run do-after-load-evaluation while dumping.
+
 2009-09-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* lread.c (Fload): Don't output a message after loading an obsolete
diff --git a/src/lread.c b/src/lread.c
index 92b1b432acd..19b6c05143b 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1279,8 +1279,7 @@ Return t if the file exists and loads successfully.  */)
   unbind_to (count, Qnil);
 
   /* Run any eval-after-load forms for this file */
-  if (NILP (Vpurify_flag)
-      && (!NILP (Ffboundp (Qdo_after_load_evaluation))))
+  if (!NILP (Ffboundp (Qdo_after_load_evaluation)))
     call1 (Qdo_after_load_evaluation, hist_file_name) ;
 
   UNGCPRO;